Sub LayOut()
Dim n!, last_row%
last_row = Cells(Rows.Count, 1).End(xlUp).Row
'<-----------------------------Remove duplicated rows
ActiveSheet.Range("$A$1:$K$" & last_row).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9), Header:=xlNo
last_row = Cells(Rows.Count, 1).End(xlUp).Row
'<-----------------------------------Change group access name to be easily understood
Cells.Replace What:="Modify, Synchronize", Replacement:="Read Write", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
Cells.Replace What:="ReadAndExecute, Synchronize", Replacement:="Read Only", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
Cells.Replace What:="+", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
'<---------------------Change disabled user cell color to be red
For n = 2 To last_row
     If Range("H" & n).Text Like "*SE" Then
        Range("H" & n).Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
    End If
Next
If Range("A2:A2").Value = "Filename" Then
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp
End If
End Sub
